Application.ExecuteCommand("Select Union")
Application.ExecuteCommand("Break Union")
DlgPrompt.Question("OK to Break Union(s) ?").Answer(mbYes)